Rtweet

library(rtweet)
library(plotly)
## authenticate via access token
token <- create_token(
  app = "Witek",
  consumer_key = Sys.getenv("CONSUMER_KEY"),
  consumer_secret = Sys.getenv("CONSUMER_SECRET"),
  access_token = Sys.getenv("ACCESS_TOKEN"),
  access_secret = Sys.getenv("ACCESS_SECRET")
  )
## search for 10000 tweets using the key words
rt <- search_tweets(
  "data + scientist OR analyst OR analist OR engineer + lang:nl", n = 10000, include_rts = FALSE
)

Searching for tweets...
Finished collecting tweets!

## preview tweets data
rt

## preview users data
users_data(rt)

## plot time series
p <- ts_plot(rt)
ggplotly(p, width = "900")

rt <- apply(rt,2,as.character)
write.csv(rt, "twitter-jobs.csv")